home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00228_BLUELEAN.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  412 b   |  16 lines
  1. on BLUELEAN
  2.   global GRIDH, GRIDY, GRIDV, TB, TBB
  3.   set TB to 0
  4.   repeat while TB = 0
  5.     set TBB to random(139)
  6.     if (getAt(GRIDV, TBB) = 2) and (getAt(GRIDV, TBB + 1) = 1) then
  7.       set the locH of sprite 10 to getAt(GRIDH, TBB)
  8.       set the locV of sprite 10 to getAt(GRIDY, TBB)
  9.       set the castNum of sprite 10 to 226
  10.       updateStage()
  11.       set TB to 1
  12.     end if
  13.   end repeat
  14.   REMOVESPRITE()
  15. end
  16.